function ExportMacro(exp_vars)
Result="";
if(exp_vars["xcpr"]) then --write dimensionality first
--outfile:write( "\nxcpr "..exp_vars["xcpr"] )
Result=Result.."\nxcpr "..exp_vars["xcpr"]
end

for key, value in pairs( exp_vars ) do
if(string.find(key,"(%s*)script(%d-)")) then 
print("Parsed out: "..key.." "..value)
else
--outfile:write( "\n"..key.." "..value ) 
Result=Result.."\n"..key.." "..value 
end
end


TestResult = "Macro Got Executed";
end --fucntion ExportMacro